/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / menu-install.elc

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 6d 65 6e 75 2d 69 | 6e 73 74 61 6c 6c 2e 65 |..menu-i|nstall.e|
|00000010| 6c 63 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |lc......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 64 45 4c 43 45 4d 41 | 43 01 00 00 00 00 00 00 |.dELCEMA|C.......|
|00000050| 00 00 00 00 00 26 92 00 | 00 01 3c a9 83 4b 0c a9 |.....&..|..<..K..|
|00000060| ed bd 14 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b3 38 00 00 |........|.....8..|
|00000080| 0a 28 64 65 66 76 61 72 | 20 66 69 78 65 64 2d 77 |.(defvar| fixed-w|
|00000090| 69 64 74 68 2d 66 6f 6e | 74 73 20 28 71 75 6f 74 |idth-fon|ts (quot|
|000000a0| 65 20 28 22 43 6f 75 72 | 69 65 72 22 20 22 4d 6f |e ("Cour|ier" "Mo|
|000000b0| 6e 61 63 6f 22 29 29 29 | 0a 0a 28 64 65 66 63 6f |naco")))|..(defco|
|000000c0| 6e 73 74 20 66 6f 6e 74 | 2d 6e 61 6d 65 2d 70 72 |nst font|-name-pr|
|000000d0| 65 66 65 72 65 6e 63 65 | 2d 69 6e 64 65 78 20 31 |eference|-index 1|
|000000e0| 33 30 29 0a 0a 28 64 65 | 66 63 6f 6e 73 74 20 66 |30)..(de|fconst f|
|000000f0| 6f 6e 74 2d 73 69 7a 65 | 2d 70 72 65 66 65 72 65 |ont-size|-prefere|
|00000100| 6e 63 65 2d 69 6e 64 65 | 78 20 31 33 31 29 0a 0a |nce-inde|x 131)..|
|00000110| 28 64 65 66 76 61 72 20 | 68 61 76 65 2d 6d 65 6e |(defvar |have-men|
|00000120| 75 73 20 6e 69 6c 29 0a | 0a 28 69 66 20 28 6e 6f |us nil).|.(if (no|
|00000130| 74 20 68 61 76 65 2d 6d | 65 6e 75 73 29 20 28 70 |t have-m|enus) (p|
|00000140| 72 6f 67 6e 20 28 73 65 | 74 71 20 62 75 66 66 65 |rogn (se|tq buffe|
|00000150| 72 73 2d 6d 65 6e 75 20 | 28 4e 65 77 4d 65 6e 75 |rs-menu |(NewMenu|
|00000160| 20 28 67 65 74 2d 75 6e | 69 71 75 65 2d 6d 65 6e | (get-un|ique-men|
|00000170| 75 2d 49 44 29 20 22 42 | 75 66 66 65 72 73 22 29 |u-ID) "B|uffers")|
|00000180| 29 20 28 49 6e 73 65 72 | 74 4d 65 6e 75 20 62 75 |) (Inser|tMenu bu|
|00000190| 66 66 65 72 73 2d 6d 65 | 6e 75 20 74 29 20 28 73 |ffers-me|nu t) (s|
|000001a0| 65 74 71 20 66 6f 6e 74 | 2d 6e 61 6d 65 2d 6d 65 |etq font|-name-me|
|000001b0| 6e 75 2d 69 64 20 28 67 | 65 74 2d 75 6e 69 71 75 |nu-id (g|et-uniqu|
|000001c0| 65 2d 6d 65 6e 75 2d 49 | 44 29 29 20 28 73 65 74 |e-menu-I|D)) (set|
|000001d0| 71 20 66 6f 6e 74 2d 6e | 61 6d 65 2d 6d 65 6e 75 |q font-n|ame-menu|
|000001e0| 20 28 4e 65 77 4d 65 6e | 75 20 66 6f 6e 74 2d 6e | (NewMen|u font-n|
|000001f0| 61 6d 65 2d 6d 65 6e 75 | 2d 69 64 20 22 22 29 29 |ame-menu|-id ""))|
|00000200| 20 28 6d 61 70 63 61 72 | 20 28 66 75 6e 63 74 69 | (mapcar| (functi|
|00000210| 6f 6e 20 28 6c 61 6d 62 | 64 61 20 28 66 6f 6e 74 |on (lamb|da (font|
|00000220| 2d 6e 61 6d 65 29 20 28 | 41 70 70 65 6e 64 4d 65 |-name) (|AppendMe|
|00000230| 6e 75 20 66 6f 6e 74 2d | 6e 61 6d 65 2d 6d 65 6e |nu font-|name-men|
|00000240| 75 20 66 6f 6e 74 2d 6e | 61 6d 65 20 28 71 75 6f |u font-n|ame (quo|
|00000250| 74 65 20 64 6f 2d 66 6f | 6e 74 2d 6e 61 6d 65 29 |te do-fo|nt-name)|
|00000260| 29 29 29 20 66 69 78 65 | 64 2d 77 69 64 74 68 2d |))) fixe|d-width-|
|00000270| 66 6f 6e 74 73 29 20 28 | 49 6e 73 65 72 74 4d 65 |fonts) (|InsertMe|
|00000280| 6e 75 20 66 6f 6e 74 2d | 6e 61 6d 65 2d 6d 65 6e |nu font-|name-men|
|00000290| 75 20 2d 31 29 20 28 73 | 65 74 71 20 6c 61 73 74 |u -1) (s|etq last|
|000002a0| 2d 66 6f 6e 74 2d 6e 61 | 6d 65 2d 6d 65 6e 75 2d |-font-na|me-menu-|
|000002b0| 63 68 65 63 6b 20 31 29 | 20 28 6c 65 74 20 28 28 |check 1)| (let ((|
|000002c0| 6e 20 28 43 6f 75 6e 74 | 4d 49 74 65 6d 73 20 66 |n (Count|MItems f|
|000002d0| 6f 6e 74 2d 6e 61 6d 65 | 2d 6d 65 6e 75 29 29 20 |ont-name|-menu)) |
|000002e0| 28 63 75 72 72 65 6e 74 | 2d 66 6f 6e 74 2d 6e 61 |(current|-font-na|
|000002f0| 6d 65 2d 63 6f 64 65 20 | 28 63 3a 73 6c 6f 74 72 |me-code |(c:slotr|
|00000300| 65 66 20 28 71 75 6f 74 | 65 20 47 72 61 66 50 6f |ef (quot|e GrafPo|
|00000310| 72 74 29 20 28 63 6f 6e | 73 6f 6c 65 2d 57 69 6e |rt) (con|sole-Win|
|00000320| 64 6f 77 50 74 72 29 20 | 28 71 75 6f 74 65 20 74 |dowPtr) |(quote t|
|00000330| 78 46 6f 6e 74 29 29 29 | 20 28 73 20 28 6d 61 6b |xFont)))| (s (mak|
|00000340| 65 2d 73 74 72 69 6e 67 | 20 32 35 36 20 30 29 29 |e-string| 256 0))|
|00000350| 20 28 66 6f 6e 74 2d 6e | 61 6d 65 2d 63 6f 64 65 | (font-n|ame-code|
|00000360| 20 28 6d 61 6b 65 2d 73 | 74 72 69 6e 67 20 32 20 | (make-s|tring 2 |
|00000370| 30 29 29 29 20 28 77 68 | 69 6c 65 20 28 3e 20 6e |0))) (wh|ile (> n|
|00000380| 20 30 29 20 28 47 65 74 | 49 74 65 6d 20 66 6f 6e | 0) (Get|Item fon|
|00000390| 74 2d 6e 61 6d 65 2d 6d | 65 6e 75 20 6e 20 73 29 |t-name-m|enu n s)|
|000003a0| 20 28 47 65 74 46 4e 75 | 6d 20 73 20 66 6f 6e 74 | (GetFNu|m s font|
|000003b0| 2d 6e 61 6d 65 2d 63 6f | 64 65 29 20 28 69 66 20 |-name-co|de) (if |
|000003c0| 28 3d 20 28 65 78 74 72 | 61 63 74 2d 69 6e 74 65 |(= (extr|act-inte|
|000003d0| 72 6e 61 6c 20 66 6f 6e | 74 2d 6e 61 6d 65 2d 63 |rnal fon|t-name-c|
|000003e0| 6f 64 65 20 30 20 28 71 | 75 6f 74 65 20 73 68 6f |ode 0 (q|uote sho|
|000003f0| 72 74 29 29 20 63 75 72 | 72 65 6e 74 2d 66 6f 6e |rt)) cur|rent-fon|
|00000400| 74 2d 6e 61 6d 65 2d 63 | 6f 64 65 29 20 28 70 72 |t-name-c|ode) (pr|
|00000410| 6f 67 6e 20 28 73 65 74 | 71 20 6c 61 73 74 2d 66 |ogn (set|q last-f|
|00000420| 6f 6e 74 2d 6e 61 6d 65 | 2d 6d 65 6e 75 2d 63 68 |ont-name|-menu-ch|
|00000430| 65 63 6b 20 6e 29 20 28 | 73 65 74 71 20 6e 20 30 |eck n) (|setq n 0|
|00000440| 29 29 20 28 73 65 74 71 | 20 6e 20 28 31 2d 20 6e |)) (setq| n (1- n|
|00000450| 29 29 29 29 29 20 28 43 | 68 65 63 6b 49 74 65 6d |))))) (C|heckItem|
|00000460| 20 66 6f 6e 74 2d 6e 61 | 6d 65 2d 6d 65 6e 75 20 | font-na|me-menu |
|00000470| 6c 61 73 74 2d 66 6f 6e | 74 2d 6e 61 6d 65 2d 6d |last-fon|t-name-m|
|00000480| 65 6e 75 2d 63 68 65 63 | 6b 20 31 29 20 28 73 65 |enu-chec|k 1) (se|
|00000490| 74 71 20 66 6f 6e 74 2d | 73 69 7a 65 2d 6d 65 6e |tq font-|size-men|
|000004a0| 75 2d 69 64 20 28 67 65 | 74 2d 75 6e 69 71 75 65 |u-id (ge|t-unique|
|000004b0| 2d 6d 65 6e 75 2d 49 44 | 29 29 20 28 73 65 74 71 |-menu-ID|)) (setq|
|000004c0| 20 66 6f 6e 74 2d 73 69 | 7a 65 2d 6d 65 6e 75 20 | font-si|ze-menu |
|000004d0| 28 4e 65 77 4d 65 6e 75 | 20 66 6f 6e 74 2d 73 69 |(NewMenu| font-si|
|000004e0| 7a 65 2d 6d 65 6e 75 2d | 69 64 20 22 22 29 29 20 |ze-menu-|id "")) |
|000004f0| 28 41 70 70 65 6e 64 4d | 65 6e 75 20 66 6f 6e 74 |(AppendM|enu font|
|00000500| 2d 73 69 7a 65 2d 6d 65 | 6e 75 20 22 39 22 20 28 |-size-me|nu "9" (|
|00000510| 71 75 6f 74 65 20 64 6f | 2d 66 6f 6e 74 2d 73 69 |quote do|-font-si|
|00000520| 7a 65 29 29 20 28 41 70 | 70 65 6e 64 4d 65 6e 75 |ze)) (Ap|pendMenu|
|00000530| 20 66 6f 6e 74 2d 73 69 | 7a 65 2d 6d 65 6e 75 20 | font-si|ze-menu |
|00000540| 22 31 30 22 20 28 71 75 | 6f 74 65 20 64 6f 2d 66 |"10" (qu|ote do-f|
|00000550| 6f 6e 74 2d 73 69 7a 65 | 29 29 20 28 41 70 70 65 |ont-size|)) (Appe|
|00000560| 6e 64 4d 65 6e 75 20 66 | 6f 6e 74 2d 73 69 7a 65 |ndMenu f|ont-size|
|00000570| 2d 6d 65 6e 75 20 22 31 | 32 22 20 28 71 75 6f 74 |-menu "1|2" (quot|
|00000580| 65 20 64 6f 2d 66 6f 6e | 74 2d 73 69 7a 65 29 29 |e do-fon|t-size))|
|00000590| 20 28 41 70 70 65 6e 64 | 4d 65 6e 75 20 66 6f 6e | (Append|Menu fon|
|000005a0| 74 2d 73 69 7a 65 2d 6d | 65 6e 75 20 22 31 34 22 |t-size-m|enu "14"|
|000005b0| 20 28 71 75 6f 74 65 20 | 64 6f 2d 66 6f 6e 74 2d | (quote |do-font-|
|000005c0| 73 69 7a 65 29 29 20 28 | 41 70 70 65 6e 64 4d 65 |size)) (|AppendMe|
|000005d0| 6e 75 20 66 6f 6e 74 2d | 73 69 7a 65 2d 6d 65 6e |nu font-|size-men|
|000005e0| 75 20 22 31 38 22 20 28 | 71 75 6f 74 65 20 64 6f |u "18" (|quote do|
|000005f0| 2d 66 6f 6e 74 2d 73 69 | 7a 65 29 29 20 28 41 70 |-font-si|ze)) (Ap|
|00000600| 70 65 6e 64 4d 65 6e 75 | 20 66 6f 6e 74 2d 73 69 |pendMenu| font-si|
|00000610| 7a 65 2d 6d 65 6e 75 20 | 22 32 34 22 20 28 71 75 |ze-menu |"24" (qu|
|00000620| 6f 74 65 20 64 6f 2d 66 | 6f 6e 74 2d 73 69 7a 65 |ote do-f|ont-size|
|00000630| 29 29 20 28 41 70 70 65 | 6e 64 4d 65 6e 75 20 66 |)) (Appe|ndMenu f|
|00000640| 6f 6e 74 2d 73 69 7a 65 | 2d 6d 65 6e 75 20 22 28 |ont-size|-menu "(|
|00000650| 2d 22 20 6e 69 6c 29 20 | 28 41 70 70 65 6e 64 4d |-" nil) |(AppendM|
|00000660| 65 6e 75 20 66 6f 6e 74 | 2d 73 69 7a 65 2d 6d 65 |enu font|-size-me|
|00000670| 6e 75 20 22 4f 74 68 65 | 72 2e 2e 2e 22 20 28 71 |nu "Othe|r..." (q|
|00000680| 75 6f 74 65 20 64 6f 2d | 66 6f 6e 74 2d 73 69 7a |uote do-|font-siz|
|00000690| 65 2d 6f 74 68 65 72 29 | 29 20 28 49 6e 73 65 72 |e-other)|) (Inser|
|000006a0| 74 4d 65 6e 75 20 66 6f | 6e 74 2d 73 69 7a 65 2d |tMenu fo|nt-size-|
|000006b0| 6d 65 6e 75 20 2d 31 29 | 20 28 73 65 74 71 20 6c |menu -1)| (setq l|
|000006c0| 61 73 74 2d 66 6f 6e 74 | 2d 73 69 7a 65 2d 6d 65 |ast-font|-size-me|
|000006d0| 6e 75 2d 63 68 65 63 6b | 20 38 29 20 28 6c 65 74 |nu-check| 8) (let|
|000006e0| 20 28 28 6e 20 28 43 6f | 75 6e 74 4d 49 74 65 6d | ((n (Co|untMItem|
|000006f0| 73 20 66 6f 6e 74 2d 73 | 69 7a 65 2d 6d 65 6e 75 |s font-s|ize-menu|
|00000700| 29 29 20 28 63 75 72 72 | 65 6e 74 2d 66 6f 6e 74 |)) (curr|ent-font|
|00000710| 2d 73 69 7a 65 20 28 63 | 3a 73 6c 6f 74 72 65 66 |-size (c|:slotref|
|00000720| 20 28 71 75 6f 74 65 20 | 47 72 61 66 50 6f 72 74 | (quote |GrafPort|
|00000730| 29 20 28 63 6f 6e 73 6f | 6c 65 2d 57 69 6e 64 6f |) (conso|le-Windo|
|00000740| 77 50 74 72 29 20 28 71 | 75 6f 74 65 20 74 78 53 |wPtr) (q|uote txS|
|00000750| 69 7a 65 29 29 29 20 28 | 73 20 28 6d 61 6b 65 2d |ize))) (|s (make-|
|00000760| 73 74 72 69 6e 67 20 32 | 35 36 20 30 29 29 29 20 |string 2|56 0))) |
|00000770| 28 77 68 69 6c 65 20 28 | 3e 20 6e 20 30 29 20 28 |(while (|> n 0) (|
|00000780| 47 65 74 49 74 65 6d 20 | 66 6f 6e 74 2d 73 69 7a |GetItem |font-siz|
|00000790| 65 2d 6d 65 6e 75 20 6e | 20 73 29 20 28 69 66 20 |e-menu n| s) (if |
|000007a0| 28 3d 20 28 73 74 72 69 | 6e 67 2d 74 6f 2d 69 6e |(= (stri|ng-to-in|
|000007b0| 74 20 28 50 74 6f 43 73 | 74 72 20 73 29 29 20 63 |t (PtoCs|tr s)) c|
|000007c0| 75 72 72 65 6e 74 2d 66 | 6f 6e 74 2d 73 69 7a 65 |urrent-f|ont-size|
|000007d0| 29 20 28 70 72 6f 67 6e | 20 28 73 65 74 71 20 6c |) (progn| (setq l|
|000007e0| 61 73 74 2d 66 6f 6e 74 | 2d 73 69 7a 65 2d 6d 65 |ast-font|-size-me|
|000007f0| 6e 75 2d 63 68 65 63 6b | 20 6e 29 20 28 73 65 74 |nu-check| n) (set|
|00000800| 71 20 6e 20 30 29 29 20 | 28 73 65 74 71 20 6e 20 |q n 0)) |(setq n |
|00000810| 28 31 2d 20 6e 29 29 29 | 29 29 20 28 43 68 65 63 |(1- n)))|)) (Chec|
|00000820| 6b 49 74 65 6d 20 66 6f | 6e 74 2d 73 69 7a 65 2d |kItem fo|nt-size-|
|00000830| 6d 65 6e 75 20 6c 61 73 | 74 2d 66 6f 6e 74 2d 73 |menu las|t-font-s|
|00000840| 69 7a 65 2d 6d 65 6e 75 | 2d 63 68 65 63 6b 20 31 |ize-menu|-check 1|
|00000850| 29 20 28 73 65 74 71 20 | 73 70 65 63 69 61 6c 2d |) (setq |special-|
|00000860| 6d 65 6e 75 20 28 4e 65 | 77 4d 65 6e 75 20 28 67 |menu (Ne|wMenu (g|
|00000870| 65 74 2d 75 6e 69 71 75 | 65 2d 6d 65 6e 75 2d 49 |et-uniqu|e-menu-I|
|00000880| 44 29 20 22 53 70 65 63 | 69 61 6c 22 29 29 20 28 |D) "Spec|ial")) (|
|00000890| 41 70 70 65 6e 64 4d 65 | 6e 75 20 73 70 65 63 69 |AppendMe|nu speci|
|000008a0| 61 6c 2d 6d 65 6e 75 20 | 22 53 68 6f 77 20 73 74 |al-menu |"Show st|
|000008b0| 64 6f 75 74 2d 73 74 64 | 65 72 72 22 20 28 71 75 |dout-std|err" (qu|
|000008c0| 6f 74 65 20 73 70 65 63 | 69 61 6c 2d 6d 65 6e 75 |ote spec|ial-menu|
|000008d0| 2d 73 68 6f 77 2d 73 74 | 64 6f 75 74 29 29 20 28 |-show-st|dout)) (|
|000008e0| 41 70 70 65 6e 64 4d 65 | 6e 75 20 73 70 65 63 69 |AppendMe|nu speci|
|000008f0| 61 6c 2d 6d 65 6e 75 20 | 22 43 68 61 6e 67 65 20 |al-menu |"Change |
|00000900| 53 74 61 63 6b 20 53 69 | 7a 65 2e 2e 2e 22 20 28 |Stack Si|ze..." (|
|00000910| 71 75 6f 74 65 20 64 6f | 2d 73 74 61 63 6b 73 69 |quote do|-stacksi|
|00000920| 7a 65 29 29 20 28 41 70 | 70 65 6e 64 4d 65 6e 75 |ze)) (Ap|pendMenu|
|00000930| 20 73 70 65 63 69 61 6c | 2d 6d 65 6e 75 20 22 43 | special|-menu "C|
|00000940| 68 61 6e 67 65 20 4d 6f | 64 69 66 69 65 72 20 4b |hange Mo|difier K|
|00000950| 65 79 73 2e 2e 2e 22 20 | 28 71 75 6f 74 65 20 64 |eys..." |(quote d|
|00000960| 6f 2d 6d 6f 64 69 66 69 | 65 72 73 29 29 20 28 41 |o-modifi|ers)) (A|
|00000970| 70 70 65 6e 64 4d 65 6e | 75 20 73 70 65 63 69 61 |ppendMen|u specia|
|00000980| 6c 2d 6d 65 6e 75 20 22 | 28 2d 22 20 6e 69 6c 29 |l-menu "|(-" nil)|
|00000990| 20 28 41 70 70 65 6e 64 | 4d 65 6e 75 20 73 70 65 | (Append|Menu spe|
|000009a0| 63 69 61 6c 2d 6d 65 6e | 75 20 22 46 6f 6e 74 2f |cial-men|u "Font/|
|000009b0| 1b 22 20 6e 69 6c 29 20 | 28 41 70 70 65 6e 64 4d |." nil) |(AppendM|
|000009c0| 65 6e 75 20 73 70 65 63 | 69 61 6c 2d 6d 65 6e 75 |enu spec|ial-menu|
|000009d0| 20 22 46 6f 6e 74 20 53 | 69 7a 65 2f 1b 22 20 6e | "Font S|ize/." n|
|000009e0| 69 6c 29 20 28 41 70 70 | 65 6e 64 4d 65 6e 75 20 |il) (App|endMenu |
|000009f0| 73 70 65 63 69 61 6c 2d | 6d 65 6e 75 20 22 45 64 |special-|menu "Ed|
|00000a00| 69 74 20 43 6f 6c 6f 72 | 73 2e 2e 2e 22 20 28 71 |it Color|s..." (q|
|00000a10| 75 6f 74 65 20 64 6f 2d | 65 64 69 74 2d 63 6f 6c |uote do-|edit-col|
|00000a20| 6f 72 73 29 29 20 28 53 | 65 74 49 74 65 6d 4d 61 |ors)) (S|etItemMa|
|00000a30| 72 6b 20 73 70 65 63 69 | 61 6c 2d 6d 65 6e 75 20 |rk speci|al-menu |
|00000a40| 35 20 66 6f 6e 74 2d 6e | 61 6d 65 2d 6d 65 6e 75 |5 font-n|ame-menu|
|00000a50| 2d 69 64 29 20 28 53 65 | 74 49 74 65 6d 4d 61 72 |-id) (Se|tItemMar|
|00000a60| 6b 20 73 70 65 63 69 61 | 6c 2d 6d 65 6e 75 20 36 |k specia|l-menu 6|
|00000a70| 20 66 6f 6e 74 2d 73 69 | 7a 65 2d 6d 65 6e 75 2d | font-si|ze-menu-|
|00000a80| 69 64 29 20 28 49 6e 73 | 65 72 74 4d 65 6e 75 20 |id) (Ins|ertMenu |
|00000a90| 73 70 65 63 69 61 6c 2d | 6d 65 6e 75 20 74 29 20 |special-|menu t) |
|00000aa0| 28 73 65 74 71 20 65 64 | 69 74 2d 6d 65 6e 75 20 |(setq ed|it-menu |
|00000ab0| 28 4e 65 77 4d 65 6e 75 | 20 28 67 65 74 2d 75 6e |(NewMenu| (get-un|
|00000ac0| 69 71 75 65 2d 6d 65 6e | 75 2d 49 44 29 20 22 45 |ique-men|u-ID) "E|
|00000ad0| 64 69 74 22 29 29 20 28 | 41 70 70 65 6e 64 4d 65 |dit")) (|AppendMe|
|00000ae0| 6e 75 20 65 64 69 74 2d | 6d 65 6e 75 20 22 55 6e |nu edit-|menu "Un|
|00000af0| 64 6f 2f 5a 22 20 28 71 | 75 6f 74 65 20 64 6f 2d |do/Z" (q|uote do-|
|00000b00| 75 6e 64 6f 29 29 20 28 | 41 70 70 65 6e 64 4d 65 |undo)) (|AppendMe|
|00000b10| 6e 75 20 65 64 69 74 2d | 6d 65 6e 75 20 22 28 2d |nu edit-|menu "(-|
|00000b20| 22 20 6e 69 6c 29 20 28 | 41 70 70 65 6e 64 4d 65 |" nil) (|AppendMe|
|00000b30| 6e 75 20 65 64 69 74 2d | 6d 65 6e 75 20 22 43 75 |nu edit-|menu "Cu|
|00000b40| 74 2f 58 22 20 28 71 75 | 6f 74 65 20 64 6f 2d 63 |t/X" (qu|ote do-c|
|00000b50| 75 74 29 29 20 28 41 70 | 70 65 6e 64 4d 65 6e 75 |ut)) (Ap|pendMenu|
|00000b60| 20 65 64 69 74 2d 6d 65 | 6e 75 20 22 43 6f 70 79 | edit-me|nu "Copy|
|00000b70| 2f 43 22 20 28 71 75 6f | 74 65 20 64 6f 2d 63 6f |/C" (quo|te do-co|
|00000b80| 70 79 29 29 20 28 41 70 | 70 65 6e 64 4d 65 6e 75 |py)) (Ap|pendMenu|
|00000b90| 20 65 64 69 74 2d 6d 65 | 6e 75 20 22 50 61 73 74 | edit-me|nu "Past|
|00000ba0| 65 2f 56 22 20 28 71 75 | 6f 74 65 20 64 6f 2d 70 |e/V" (qu|ote do-p|
|00000bb0| 61 73 74 65 29 29 20 28 | 41 70 70 65 6e 64 4d 65 |aste)) (|AppendMe|
|00000bc0| 6e 75 20 65 64 69 74 2d | 6d 65 6e 75 20 22 43 6c |nu edit-|menu "Cl|
|00000bd0| 65 61 72 22 20 28 71 75 | 6f 74 65 20 64 6f 2d 63 |ear" (qu|ote do-c|
|00000be0| 6c 65 61 72 29 29 20 28 | 49 6e 73 65 72 74 4d 65 |lear)) (|InsertMe|
|00000bf0| 6e 75 20 65 64 69 74 2d | 6d 65 6e 75 20 74 29 20 |nu edit-|menu t) |
|00000c00| 28 73 65 74 71 20 66 69 | 6c 65 2d 6d 65 6e 75 20 |(setq fi|le-menu |
|00000c10| 28 4e 65 77 4d 65 6e 75 | 20 28 67 65 74 2d 75 6e |(NewMenu| (get-un|
|00000c20| 69 71 75 65 2d 6d 65 6e | 75 2d 49 44 29 20 22 46 |ique-men|u-ID) "F|
|00000c30| 69 6c 65 22 29 29 20 28 | 41 70 70 65 6e 64 4d 65 |ile")) (|AppendMe|
|00000c40| 6e 75 20 66 69 6c 65 2d | 6d 65 6e 75 20 22 4e 65 |nu file-|menu "Ne|
|00000c50| 77 20 42 75 66 66 65 72 | 2f 4e 22 20 28 71 75 6f |w Buffer|/N" (quo|
|00000c60| 74 65 20 64 6f 2d 6e 65 | 77 29 29 20 28 41 70 70 |te do-ne|w)) (App|
|00000c70| 65 6e 64 4d 65 6e 75 20 | 66 69 6c 65 2d 6d 65 6e |endMenu |file-men|
|00000c80| 75 20 22 4f 70 65 6e 20 | 46 69 6c 65 20 49 6e 74 |u "Open |File Int|
|00000c90| 6f 20 42 75 66 66 65 72 | 2e 2e 2e 2f 4f 22 20 28 |o Buffer|.../O" (|
|00000ca0| 71 75 6f 74 65 20 64 6f | 2d 6f 70 65 6e 29 29 20 |quote do|-open)) |
|00000cb0| 28 41 70 70 65 6e 64 4d | 65 6e 75 20 66 69 6c 65 |(AppendM|enu file|
|00000cc0| 2d 6d 65 6e 75 20 22 43 | 6c 6f 73 65 20 42 75 66 |-menu "C|lose Buf|
|00000cd0| 66 65 72 2f 57 22 20 28 | 71 75 6f 74 65 20 64 6f |fer/W" (|quote do|
|00000ce0| 2d 63 6c 6f 73 65 29 29 | 20 28 41 70 70 65 6e 64 |-close))| (Append|
|00000cf0| 4d 65 6e 75 20 66 69 6c | 65 2d 6d 65 6e 75 20 22 |Menu fil|e-menu "|
|00000d00| 28 2d 22 20 6e 69 6c 29 | 20 28 41 70 70 65 6e 64 |(-" nil)| (Append|
|00000d10| 4d 65 6e 75 20 66 69 6c | 65 2d 6d 65 6e 75 20 22 |Menu fil|e-menu "|
|00000d20| 53 61 76 65 2f 53 22 20 | 28 71 75 6f 74 65 20 64 |Save/S" |(quote d|
|00000d30| 6f 2d 73 61 76 65 29 29 | 20 28 41 70 70 65 6e 64 |o-save))| (Append|
|00000d40| 4d 65 6e 75 20 66 69 6c | 65 2d 6d 65 6e 75 20 22 |Menu fil|e-menu "|
|00000d50| 53 61 76 65 20 41 73 2e | 2e 2e 22 20 28 71 75 6f |Save As.|.." (quo|
|00000d60| 74 65 20 64 6f 2d 73 61 | 76 65 2d 61 73 29 29 20 |te do-sa|ve-as)) |
|00000d70| 28 41 70 70 65 6e 64 4d | 65 6e 75 20 66 69 6c 65 |(AppendM|enu file|
|00000d80| 2d 6d 65 6e 75 20 22 52 | 65 76 65 72 74 20 42 75 |-menu "R|evert Bu|
|00000d90| 66 66 65 72 22 20 28 71 | 75 6f 74 65 20 64 6f 2d |ffer" (q|uote do-|
|00000da0| 72 65 76 65 72 74 29 29 | 20 28 41 70 70 65 6e 64 |revert))| (Append|
|00000db0| 4d 65 6e 75 20 66 69 6c | 65 2d 6d 65 6e 75 20 22 |Menu fil|e-menu "|
|00000dc0| 28 2d 22 20 6e 69 6c 29 | 20 28 41 70 70 65 6e 64 |(-" nil)| (Append|
|00000dd0| 4d 65 6e 75 20 66 69 6c | 65 2d 6d 65 6e 75 20 22 |Menu fil|e-menu "|
|00000de0| 50 61 67 65 20 53 65 74 | 75 70 2e 2e 2e 22 20 28 |Page Set|up..." (|
|00000df0| 71 75 6f 74 65 20 64 6f | 2d 70 61 67 65 2d 73 65 |quote do|-page-se|
|00000e00| 74 75 70 29 29 20 28 41 | 70 70 65 6e 64 4d 65 6e |tup)) (A|ppendMen|
|00000e10| 75 20 66 69 6c 65 2d 6d | 65 6e 75 20 22 50 72 69 |u file-m|enu "Pri|
|00000e20| 6e 74 20 42 75 66 66 65 | 72 2f 50 22 20 28 71 75 |nt Buffe|r/P" (qu|
|00000e30| 6f 74 65 20 64 6f 2d 70 | 72 69 6e 74 2d 62 75 66 |ote do-p|rint-buf|
|00000e40| 66 65 72 29 29 20 28 41 | 70 70 65 6e 64 4d 65 6e |fer)) (A|ppendMen|
|00000e50| 75 20 66 69 6c 65 2d 6d | 65 6e 75 20 22 50 72 69 |u file-m|enu "Pri|
|00000e60| 6e 74 20 46 69 6c 65 20 | 46 72 6f 6d 20 44 69 73 |nt File |From Dis|
|00000e70| 6b 2e 2e 2e 22 20 28 71 | 75 6f 74 65 20 64 6f 2d |k..." (q|uote do-|
|00000e80| 70 72 69 6e 74 2d 66 69 | 6c 65 29 29 20 28 41 70 |print-fi|le)) (Ap|
|00000e90| 70 65 6e 64 4d 65 6e 75 | 20 66 69 6c 65 2d 6d 65 |pendMenu| file-me|
|00000ea0| 6e 75 20 22 28 2d 22 20 | 6e 69 6c 29 20 28 41 70 |nu "(-" |nil) (Ap|
|00000eb0| 70 65 6e 64 4d 65 6e 75 | 20 66 69 6c 65 2d 6d 65 |pendMenu| file-me|
|00000ec0| 6e 75 20 22 51 75 69 74 | 20 45 6d 61 63 73 2f 51 |nu "Quit| Emacs/Q|
|00000ed0| 22 20 28 71 75 6f 74 65 | 20 64 6f 2d 71 75 69 74 |" (quote| do-quit|
|00000ee0| 29 29 20 28 49 6e 73 65 | 72 74 4d 65 6e 75 20 66 |)) (Inse|rtMenu f|
|00000ef0| 69 6c 65 2d 6d 65 6e 75 | 20 74 29 20 28 73 65 74 |ile-menu| t) (set|
|00000f00| 71 20 61 70 70 6c 65 2d | 6d 65 6e 75 20 28 4e 65 |q apple-|menu (Ne|
|00000f10| 77 4d 65 6e 75 20 28 67 | 65 74 2d 75 6e 69 71 75 |wMenu (g|et-uniqu|
|00000f20| 65 2d 6d 65 6e 75 2d 49 | 44 29 20 22 14 22 29 29 |e-menu-I|D) "."))|
|00000f30| 20 28 41 70 70 65 6e 64 | 4d 65 6e 75 20 61 70 70 | (Append|Menu app|
|00000f40| 6c 65 2d 6d 65 6e 75 20 | 22 41 62 6f 75 74 20 45 |le-menu |"About E|
|00000f50| 6d 61 63 73 2e 2e 2e 22 | 20 28 71 75 6f 74 65 20 |macs..."| (quote |
|00000f60| 64 6f 2d 61 62 6f 75 74 | 29 29 20 28 41 64 64 52 |do-about|)) (AddR|
|00000f70| 65 73 4d 65 6e 75 20 61 | 70 70 6c 65 2d 6d 65 6e |esMenu a|pple-men|
|00000f80| 75 20 22 44 52 56 52 22 | 29 20 28 49 6e 73 65 72 |u "DRVR"|) (Inser|
|00000f90| 74 4d 65 6e 75 20 61 70 | 70 6c 65 2d 6d 65 6e 75 |tMenu ap|ple-menu|
|00000fa0| 20 74 29 20 28 44 72 61 | 77 4d 65 6e 75 42 61 72 | t) (Dra|wMenuBar|
|00000fb0| 29 20 28 73 65 74 71 20 | 68 61 76 65 2d 6d 65 6e |) (setq |have-men|
|00000fc0| 75 73 20 74 29 29 29 0a | 0a 28 64 65 66 75 6e 20 |us t))).|.(defun |
|00000fd0| 64 6f 2d 6e 65 77 20 28 | 6d 65 6e 75 20 69 74 65 |do-new (|menu ite|
|00000fe0| 6d 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |m) (byte|-code ".|
|00000ff0| c2 21 18 c3 08 21 29 87 | 22 20 5b 62 75 66 66 65 |.!...!).|" [buffe|
|00001000| 72 20 67 65 6e 65 72 61 | 74 65 2d 6e 65 77 2d 62 |r genera|te-new-b|
|00001010| 75 66 66 65 72 20 22 75 | 6e 74 69 74 6c 65 64 22 |uffer "u|ntitled"|
|00001020| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|00001030| 72 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 64 |r] 3))..|(defun d|
|00001040| 6f 2d 6f 70 65 6e 20 28 | 6d 65 6e 75 20 69 74 65 |o-open (|menu ite|
|00001050| 6d 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |m) (byte|-code ".|
|00001060| 20 18 08 85 0a 00 c2 08 | 21 29 87 22 20 5b 66 69 | .......|!)." [fi|
|00001070| 6c 65 2d 6e 61 6d 65 20 | 47 65 74 46 69 6c 65 20 |le-name |GetFile |
|00001080| 66 69 6e 64 2d 66 69 6c | 65 5d 20 33 29 29 0a 0a |find-fil|e] 3))..|
|00001090| 28 64 65 66 75 6e 20 64 | 6f 2d 63 6c 6f 73 65 20 |(defun d|o-close |
|000010a0| 28 6d 65 6e 75 20 69 74 | 65 6d 29 20 28 62 79 74 |(menu it|em) (byt|
|000010b0| 65 2d 63 6f 64 65 20 22 | c2 20 85 07 00 c3 20 83 |e-code "|. .... .|
|000010c0| 46 00 c4 c5 c6 20 21 c5 | c7 21 c8 c8 24 88 c9 ca |F.... !.|.!..$...|
|000010d0| cb 4b 5c 22 18 08 cc 55 | 83 2b 00 cd 20 88 ce 70 |.K\"...U|.+.. ..p|
|000010e0| 21 82 42 00 08 cf 55 83 | 35 00 c1 82 42 00 08 d0 |!.B...U.|5...B...|
|000010f0| 55 85 42 00 d1 c1 21 88 | ce 70 21 29 82 49 00 ce |U.B...!.|.p!).I..|
|00001100| 70 21 87 22 20 5b 63 68 | 6f 69 63 65 20 6e 69 6c |p!." [ch|oice nil|
|00001110| 20 62 75 66 66 65 72 2d | 66 69 6c 65 2d 6e 61 6d | buffer-|file-nam|
|00001120| 65 20 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |e buffer|-modifie|
|00001130| 64 2d 70 20 50 61 72 61 | 6d 54 65 78 74 20 43 74 |d-p Para|mText Ct|
|00001140| 6f 50 73 74 72 20 62 75 | 66 66 65 72 2d 6e 61 6d |oPstr bu|ffer-nam|
|00001150| 65 20 22 63 6c 6f 73 69 | 6e 67 22 20 30 20 41 6c |e "closi|ng" 0 Al|
|00001160| 65 72 74 20 31 33 38 20 | 61 6c 65 72 74 2d 66 69 |ert 138 |alert-fi|
|00001170| 6c 74 65 72 20 31 20 73 | 61 76 65 2d 62 75 66 66 |lter 1 s|ave-buff|
|00001180| 65 72 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 20 32 |er kill-|buffer 2|
|00001190| 20 33 20 73 65 74 2d 62 | 75 66 66 65 72 2d 6d 6f | 3 set-b|uffer-mo|
|000011a0| 64 69 66 69 65 64 2d 70 | 5d 20 31 34 29 29 0a 0a |dified-p|] 14))..|
|000011b0| 28 64 65 66 75 6e 20 64 | 6f 2d 73 61 76 65 20 28 |(defun d|o-save (|
|000011c0| 6d 65 6e 75 20 69 74 65 | 6d 29 20 28 62 79 74 65 |menu ite|m) (byte|
|000011d0| 2d 63 6f 64 65 20 22 c0 | 20 83 0a 00 c1 20 82 0e |-code ".| .... ..|
|000011e0| 00 c2 c3 c3 5c 22 87 22 | 20 5b 62 75 66 66 65 72 |....\"."| [buffer|
|000011f0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 73 61 76 65 2d |-file-na|me save-|
|00001200| 62 75 66 66 65 72 20 64 | 6f 2d 73 61 76 65 2d 61 |buffer d|o-save-a|
|00001210| 73 20 30 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e |s 0] 5))|..(defun|
|00001220| 20 64 6f 2d 72 65 76 65 | 72 74 20 28 6d 65 6e 75 | do-reve|rt (menu|
|00001230| 20 69 74 65 6d 29 20 28 | 62 79 74 65 2d 63 6f 64 | item) (|byte-cod|
|00001240| 65 20 22 c0 20 87 22 20 | 5b 72 65 76 65 72 74 2d |e ". ." |[revert-|
|00001250| 62 75 66 66 65 72 5d 20 | 32 29 29 0a 0a 28 64 65 |buffer] |2))..(de|
|00001260| 66 75 6e 20 64 6f 2d 73 | 61 76 65 2d 61 73 20 28 |fun do-s|ave-as (|
|00001270| 6d 65 6e 75 20 69 74 65 | 6d 29 20 28 62 79 74 65 |menu ite|m) (byte|
|00001280| 2d 63 6f 64 65 20 22 c1 | c2 c3 20 5c 22 18 08 85 |-code ".|.. \"...|
|00001290| 0d 00 c4 08 21 29 87 22 | 20 5b 66 69 6c 65 2d 6e |....!)."| [file-n|
|000012a0| 61 6d 65 20 50 75 74 46 | 69 6c 65 20 22 53 61 76 |ame PutF|ile "Sav|
|000012b0| 65 20 66 69 6c 65 20 61 | 73 3a 22 20 62 75 66 66 |e file a|s:" buff|
|000012c0| 65 72 2d 6e 61 6d 65 20 | 77 72 69 74 65 2d 66 69 |er-name |write-fi|
|000012d0| 6c 65 5d 20 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |le] 4)).|.(defun |
|000012e0| 64 6f 2d 70 61 67 65 2d | 73 65 74 75 70 20 28 6d |do-page-|setup (m|
|000012f0| 65 6e 75 20 69 74 65 6d | 29 20 28 62 79 74 65 2d |enu item|) (byte-|
|00001300| 63 6f 64 65 20 22 c1 c2 | c0 c0 c0 c3 25 87 22 20 |code "..|....%." |
|00001310| 5b 6e 69 6c 20 63 61 6c | 6c 2d 70 72 6f 63 65 73 |[nil cal|l-proces|
|00001320| 73 20 22 6c 70 72 22 20 | 22 2d 50 22 5d 20 36 29 |s "lpr" |"-P"] 6)|
|00001330| 29 0a 0a 28 64 65 66 75 | 6e 20 64 6f 2d 70 72 69 |)..(defu|n do-pri|
|00001340| 6e 74 2d 62 75 66 66 65 | 72 20 28 6d 65 6e 75 20 |nt-buffe|r (menu |
|00001350| 69 74 65 6d 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |item) (b|yte-code|
|00001360| 20 22 c0 20 87 22 20 5b | 70 72 69 6e 74 2d 62 75 | ". ." [|print-bu|
|00001370| 66 66 65 72 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 |ffer] 2)|)..(defu|
|00001380| 6e 20 64 6f 2d 70 72 69 | 6e 74 2d 66 69 6c 65 20 |n do-pri|nt-file |
|00001390| 28 6d 65 6e 75 20 69 74 | 65 6d 29 20 28 62 79 74 |(menu it|em) (byt|
|000013a0| 65 2d 63 6f 64 65 20 22 | c2 20 18 08 85 11 00 c3 |e-code "|. ......|
|000013b0| c4 4b c5 c6 09 08 43 23 | 5c 22 29 87 22 20 5b 66 |.K....C#|\")." [f|
|000013c0| 69 6c 65 2d 6e 61 6d 65 | 20 6c 70 72 2d 73 77 69 |ile-name| lpr-swi|
|000013d0| 74 63 68 65 73 20 47 65 | 74 46 69 6c 65 20 61 70 |tches Ge|tFile ap|
|000013e0| 70 6c 79 20 63 61 6c 6c | 2d 70 72 6f 63 65 73 73 |ply call|-process|
|000013f0| 20 61 70 70 65 6e 64 20 | 28 22 6c 70 72 22 20 6e | append |("lpr" n|
|00001400| 69 6c 20 30 20 6e 69 6c | 20 22 2d 70 22 29 5d 20 |il 0 nil| "-p")] |
|00001410| 38 29 29 0a 0a 28 64 65 | 66 75 6e 20 66 72 69 65 |8))..(de|fun frie|
|00001420| 6e 64 6c 79 2d 71 75 69 | 74 2d 71 75 65 72 69 65 |ndly-qui|t-querie|
|00001430| 73 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |s nil (b|yte-code|
|00001440| 20 22 c0 c1 8d 87 22 20 | 5b 63 61 6e 63 65 6c 20 | "...." |[cancel |
|00001450| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 c2 c3 20 |(byte-co|de "... |
|00001460| 5c 22 88 c0 87 22 20 5b | 74 20 6d 61 70 63 61 72 |\"..." [|t mapcar|
|00001470| 20 28 6c 61 6d 62 64 61 | 20 28 78 29 20 28 62 79 | (lambda| (x) (by|
|00001480| 74 65 2d 63 6f 64 65 20 | 22 c3 08 21 85 09 00 c4 |te-code |"..!....|
|00001490| 08 21 85 40 00 c5 c6 c7 | 08 21 21 c6 c8 21 c9 c9 |.!.@....|.!!..!..|
|000014a0| 24 88 ca cb cc 4b 5c 22 | 19 09 cd 55 83 2b 00 ce |$....K\"|...U.+..|
|000014b0| 08 21 82 3f 00 09 cf 55 | 83 38 00 d0 d1 c2 5c 22 |.!.?...U|.8....\"|
|000014c0| 82 3f 00 09 d2 55 85 3f | 00 c2 29 87 22 20 5b 78 |.?...U.?|..)." [x|
|000014d0| 20 63 68 6f 69 63 65 20 | 6e 69 6c 20 62 75 66 66 | choice |nil buff|
|000014e0| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 62 75 66 |er-file-|name buf|
|000014f0| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 50 |fer-modi|fied-p P|
|00001500| 61 72 61 6d 54 65 78 74 | 20 43 74 6f 50 73 74 72 |aramText| CtoPstr|
|00001510| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 20 22 71 75 | buffer-|name "qu|
|00001520| 69 74 74 69 6e 67 22 20 | 30 20 41 6c 65 72 74 20 |itting" |0 Alert |
|00001530| 31 33 38 20 61 6c 65 72 | 74 2d 66 69 6c 74 65 72 |138 aler|t-filter|
|00001540| 20 31 20 73 61 76 65 2d | 62 75 66 66 65 72 20 32 | 1 save-|buffer 2|
|00001550| 20 74 68 72 6f 77 20 63 | 61 6e 63 65 6c 20 33 5d | throw c|ancel 3]|
|00001560| 20 31 32 29 29 20 62 75 | 66 66 65 72 2d 6c 69 73 | 12)) bu|ffer-lis|
|00001570| 74 5d 20 34 29 5d 20 32 | 29 29 0a 0a 28 64 65 66 |t] 4)] 2|))..(def|
|00001580| 75 6e 20 64 6f 2d 71 75 | 69 74 20 28 6d 65 6e 75 |un do-qu|it (menu|
|00001590| 20 69 74 65 6d 29 20 28 | 62 79 74 65 2d 63 6f 64 | item) (|byte-cod|
|000015a0| 65 20 22 c1 20 85 08 00 | c2 c0 21 87 22 20 5b 74 |e ". ...|..!." [t|
|000015b0| 20 66 72 69 65 6e 64 6c | 79 2d 71 75 69 74 2d 71 | friendl|y-quit-q|
|000015c0| 75 65 72 69 65 73 20 6b | 69 6c 6c 2d 65 6d 61 63 |ueries k|ill-emac|
|000015d0| 73 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 61 |s] 3))..|(defun a|
|000015e0| 70 70 6c 65 2d 75 6e 64 | 6f 20 6e 69 6c 20 28 69 |pple-und|o nil (i|
|000015f0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00001600| 65 2d 63 6f 64 65 20 22 | c1 88 c2 20 88 c2 89 10 |e-code "|... ....|
|00001610| 87 22 20 5b 6c 61 73 74 | 2d 63 6f 6d 6d 61 6e 64 |." [last|-command|
|00001620| 20 6e 69 6c 20 75 6e 64 | 6f 5d 20 33 29 29 0a 0a | nil und|o] 3))..|
|00001630| 28 64 65 66 75 6e 20 61 | 70 70 6c 65 2d 63 75 74 |(defun a|pple-cut|
|00001640| 20 6e 69 6c 20 28 69 6e | 74 65 72 61 63 74 69 76 | nil (in|teractiv|
|00001650| 65 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |e) (byte|-code ".|
|00001660| 88 8a c1 20 29 88 c2 60 | c3 20 83 13 00 c3 20 82 |... )..`|. .... .|
|00001670| 14 00 60 5c 22 87 22 20 | 5b 6e 69 6c 20 63 6f 70 |..`\"." |[nil cop|
|00001680| 79 2d 72 65 67 69 6f 6e | 2d 74 6f 2d 63 6c 69 70 |y-region|-to-clip|
|00001690| 62 6f 61 72 64 20 6b 69 | 6c 6c 2d 72 65 67 69 6f |board ki|ll-regio|
|000016a0| 6e 20 6d 61 72 6b 5d 20 | 36 29 29 0a 0a 28 64 65 |n mark] |6))..(de|
|000016b0| 66 75 6e 20 61 70 70 6c | 65 2d 63 6f 70 79 20 6e |fun appl|e-copy n|
|000016c0| 69 6c 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |il (inte|ractive)|
|000016d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 8a | (byte-c|ode "...|
|000016e0| c1 20 29 88 c2 60 c3 20 | 83 13 00 c3 20 82 14 00 |. )..`. |.... ...|
|000016f0| 60 5c 22 87 22 20 5b 6e | 69 6c 20 63 6f 70 79 2d |`\"." [n|il copy-|
|00001700| 72 65 67 69 6f 6e 2d 74 | 6f 2d 63 6c 69 70 62 6f |region-t|o-clipbo|
|00001710| 61 72 64 20 63 6f 70 79 | 2d 72 65 67 69 6f 6e 2d |ard copy|-region-|
|00001720| 61 73 2d 6b 69 6c 6c 20 | 6d 61 72 6b 5d 20 36 29 |as-kill |mark] 6)|
|00001730| 29 0a 0a 28 64 65 66 75 | 6e 20 61 70 70 6c 65 2d |)..(defu|n apple-|
|00001740| 70 61 73 74 65 20 6e 69 | 6c 20 28 69 6e 74 65 72 |paste ni|l (inter|
|00001750| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|00001760| 64 65 20 22 c0 88 c1 8a | c2 20 29 21 87 22 20 5b |de "....|. )!." [|
|00001770| 6e 69 6c 20 69 6e 73 65 | 72 74 2d 62 75 66 66 65 |nil inse|rt-buffe|
|00001780| 72 2d 73 75 62 73 74 72 | 69 6e 67 20 6d 61 6b 65 |r-substr|ing make|
|00001790| 2d 63 6c 69 70 62 6f 61 | 72 64 2d 63 75 72 72 65 |-clipboa|rd-curre|
|000017a0| 6e 74 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |nt] 3)).|.(defun |
|000017b0| 61 70 70 6c 65 2d 63 6c | 65 61 72 20 6e 69 6c 20 |apple-cl|ear nil |
|000017c0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|000017d0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 60 c2 20 |yte-code| "...`. |
|000017e0| 83 0e 00 c2 20 82 0f 00 | 60 5c 22 87 22 20 5b 6e |.... ...|`\"." [n|
|000017f0| 69 6c 20 64 65 6c 65 74 | 65 2d 72 65 67 69 6f 6e |il delet|e-region|
|00001800| 20 6d 61 72 6b 5d 20 35 | 29 29 0a 0a 28 64 65 66 | mark] 5|))..(def|
|00001810| 75 6e 20 64 6f 2d 75 6e | 64 6f 20 28 6d 65 6e 75 |un do-un|do (menu|
|00001820| 20 69 74 65 6d 29 20 28 | 62 79 74 65 2d 63 6f 64 | item) (|byte-cod|
|00001830| 65 20 22 c0 20 87 22 20 | 5b 61 70 70 6c 65 2d 75 |e ". ." |[apple-u|
|00001840| 6e 64 6f 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |ndo] 2))|..(defun|
|00001850| 20 64 6f 2d 63 75 74 20 | 28 6d 65 6e 75 20 69 74 | do-cut |(menu it|
|00001860| 65 6d 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |em) (byt|e-code "|
|00001870| c0 20 87 22 20 5b 61 70 | 70 6c 65 2d 63 75 74 5d |. ." [ap|ple-cut]|
|00001880| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 64 6f 2d | 2))..(d|efun do-|
|00001890| 63 6f 70 79 20 28 6d 65 | 6e 75 20 69 74 65 6d 29 |copy (me|nu item)|
|000018a0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 20 87 | (byte-c|ode ". .|
|000018b0| 22 20 5b 61 70 70 6c 65 | 2d 63 6f 70 79 5d 20 32 |" [apple|-copy] 2|
|000018c0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 64 6f 2d 70 61 |))..(def|un do-pa|
|000018d0| 73 74 65 20 28 6d 65 6e | 75 20 69 74 65 6d 29 20 |ste (men|u item) |
|000018e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 20 87 22 |(byte-co|de ". ."|
|000018f0| 20 5b 61 70 70 6c 65 2d | 70 61 73 74 65 5d 20 32 | [apple-|paste] 2|
|00001900| 29 29 0a 0a 28 64 65 66 | 75 6e 20 64 6f 2d 63 6c |))..(def|un do-cl|
|00001910| 65 61 72 20 28 6d 65 6e | 75 20 69 74 65 6d 29 20 |ear (men|u item) |
|00001920| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 20 87 22 |(byte-co|de ". ."|
|00001930| 20 5b 61 70 70 6c 65 2d | 63 6c 65 61 72 5d 20 32 | [apple-|clear] 2|
|00001940| 29 29 0a 0a 28 64 65 66 | 75 6e 20 64 6f 2d 66 6f |))..(def|un do-fo|
|00001950| 6e 74 2d 73 69 7a 65 2d | 69 6e 74 65 72 6e 61 6c |nt-size-|internal|
|00001960| 20 28 69 74 65 6d 20 73 | 69 7a 65 29 20 28 62 79 | (item s|ize) (by|
|00001970| 74 65 2d 63 6f 64 65 20 | 22 08 c7 59 86 09 00 08 |te-code |"..Y....|
|00001980| c8 58 83 12 00 c9 ca 21 | 82 4a 00 cb cc 21 19 cd |.X.....!|.J...!..|
|00001990| ce 20 21 85 32 00 cf 8e | d0 09 21 88 d1 d2 09 21 |. !.2...|..!....!|
|000019a0| c8 d3 0a 24 29 88 d4 d5 | 0b 09 23 29 88 d6 d7 0a |...$)...|..#)....|
|000019b0| 5c 22 88 d8 0c 0d c8 23 | 88 d8 0c 0e 06 d9 23 88 |\".....#|......#.|
|000019c0| 0e 06 89 15 87 22 20 5b | 73 69 7a 65 20 68 20 66 |....." [|size h f|
|000019d0| 6f 6e 74 2d 73 69 7a 65 | 20 66 6f 6e 74 2d 73 69 |ont-size| font-si|
|000019e0| 7a 65 2d 70 72 65 66 65 | 72 65 6e 63 65 2d 69 6e |ze-prefe|rence-in|
|000019f0| 64 65 78 20 66 6f 6e 74 | 2d 73 69 7a 65 2d 6d 65 |dex font|-size-me|
|00001a00| 6e 75 20 6c 61 73 74 2d | 66 6f 6e 74 2d 73 69 7a |nu last-|font-siz|
|00001a10| 65 2d 6d 65 6e 75 2d 63 | 68 65 63 6b 20 69 74 65 |e-menu-c|heck ite|
|00001a20| 6d 20 31 32 38 20 30 20 | 6d 65 73 73 61 67 65 20 |m 128 0 |message |
|00001a30| 22 59 6f 75 20 63 61 6e | 27 74 20 62 65 20 73 65 |"You can|'t be se|
|00001a40| 72 69 6f 75 73 21 22 20 | 4e 65 77 48 61 6e 64 6c |rious!" |NewHandl|
|00001a50| 65 20 32 20 7a 65 72 6f | 70 20 4d 65 6d 45 72 72 |e 2 zero|p MemErr|
|00001a60| 6f 72 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |or ((byt|e-code "|
|00001a70| c1 08 21 87 22 20 5b 68 | 20 48 55 6e 6c 6f 63 6b |..!." [h| HUnlock|
|00001a80| 5d 20 32 29 29 20 48 4c | 6f 63 6b 20 65 6e 63 6f |] 2)) HL|ock enco|
|00001a90| 64 65 2d 69 6e 74 65 72 | 6e 61 6c 20 64 65 72 65 |de-inter|nal dere|
|00001aa0| 66 20 73 68 6f 72 74 20 | 73 65 74 2d 70 72 65 66 |f short |set-pref|
|00001ab0| 65 72 65 6e 63 65 20 22 | 44 41 54 41 22 20 73 70 |erence "|DATA" sp|
|00001ac0| 65 63 69 61 6c 2d 6d 65 | 6e 75 2d 66 6f 6e 74 2d |ecial-me|nu-font-|
|00001ad0| 63 68 61 6e 67 65 20 2d | 31 20 43 68 65 63 6b 49 |change -|1 CheckI|
|00001ae0| 74 65 6d 20 31 5d 20 31 | 34 29 29 0a 0a 28 64 65 |tem 1] 1|4))..(de|
|00001af0| 66 75 6e 20 64 6f 2d 66 | 6f 6e 74 2d 73 69 7a 65 |fun do-f|ont-size|
|00001b00| 2d 6f 74 68 65 72 20 28 | 6d 65 6e 75 20 69 74 65 |-other (|menu ite|
|00001b10| 6d 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |m) (byte|-code ".|
|00001b20| c3 21 18 c4 09 08 5c 22 | 29 87 22 20 5b 66 6f 6e |.!....\"|)." [fon|
|00001b30| 74 2d 73 69 7a 65 20 69 | 74 65 6d 20 63 61 6c 6c |t-size i|tem call|
|00001b40| 2d 69 6e 74 65 72 61 63 | 74 69 76 65 6c 79 20 28 |-interac|tively (|
|00001b50| 6c 61 6d 62 64 61 20 28 | 66 6f 6e 74 2d 73 69 7a |lambda (|font-siz|
|00001b60| 65 29 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |e) (inte|ractive |
|00001b70| 22 6e 50 6f 69 6e 74 20 | 73 69 7a 65 3a 20 22 29 |"nPoint |size: ")|
|00001b80| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 88 08 | (byte-c|ode "...|
|00001b90| 87 22 20 5b 66 6f 6e 74 | 2d 73 69 7a 65 20 6e 69 |." [font|-size ni|
|00001ba0| 6c 5d 20 31 29 29 20 64 | 6f 2d 66 6f 6e 74 2d 73 |l] 1)) d|o-font-s|
|00001bb0| 69 7a 65 2d 69 6e 74 65 | 72 6e 61 6c 5d 20 34 29 |ize-inte|rnal] 4)|
|00001bc0| 29 0a 0a 28 64 65 66 75 | 6e 20 64 6f 2d 66 6f 6e |)..(defu|n do-fon|
|00001bd0| 74 2d 73 69 7a 65 20 28 | 6d 65 6e 75 20 69 74 65 |t-size (|menu ite|
|00001be0| 6d 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c4 |m) (byte|-code ".|
|00001bf0| c5 c6 5c 22 18 c7 09 0a | 08 23 88 c8 c9 08 21 21 |..\"....|.#....!!|
|00001c00| 1b ca 0a 0b 5c 22 29 29 | 87 22 20 5b 73 20 66 6f |....\"))|." [s fo|
|00001c10| 6e 74 2d 73 69 7a 65 2d | 6d 65 6e 75 20 69 74 65 |nt-size-|menu ite|
|00001c20| 6d 20 66 6f 6e 74 2d 73 | 69 7a 65 20 6d 61 6b 65 |m font-s|ize make|
|00001c30| 2d 73 74 72 69 6e 67 20 | 32 35 36 20 30 20 47 65 |-string |256 0 Ge|
|00001c40| 74 49 74 65 6d 20 73 74 | 72 69 6e 67 2d 74 6f 2d |tItem st|ring-to-|
|00001c50| 69 6e 74 20 50 74 6f 43 | 73 74 72 20 64 6f 2d 66 |int PtoC|str do-f|
|00001c60| 6f 6e 74 2d 73 69 7a 65 | 2d 69 6e 74 65 72 6e 61 |ont-size|-interna|
|00001c70| 6c 5d 20 37 29 29 0a 0a | 28 64 65 66 75 6e 20 64 |l] 7))..|(defun d|
|00001c80| 6f 2d 66 6f 6e 74 2d 6e | 61 6d 65 20 28 6d 65 6e |o-font-n|ame (men|
|00001c90| 75 20 69 74 65 6d 29 20 | 28 62 79 74 65 2d 63 6f |u item) |(byte-co|
|00001ca0| 64 65 20 22 c8 c9 ca 5c | 22 18 cb 09 0a 08 23 88 |de "...\|".....#.|
|00001cb0| c8 cc ca 5c 22 1b cd 08 | 0b 5c 22 88 ce 0b ca cf |...\"...|.\".....|
|00001cc0| 23 1c d0 cc 21 1d d1 d2 | 20 21 85 3d 00 d3 0d 21 |#...!...| !.=...!|
|00001cd0| 88 d4 d5 0d 21 ca cf 0c | 24 88 d6 0d 21 88 d7 d8 |....!...|$...!...|
|00001ce0| 0e 06 0d 23 29 88 d9 0c | da 5c 22 29 29 29 88 db |...#)...|.\")))..|
|00001cf0| 09 0e 07 ca 23 88 db 09 | 0a dc 23 88 0a 89 16 07 |....#...|..#.....|
|00001d00| 87 22 20 5b 73 20 66 6f | 6e 74 2d 6e 61 6d 65 2d |." [s fo|nt-name-|
|00001d10| 6d 65 6e 75 20 69 74 65 | 6d 20 66 6f 6e 74 2d 6e |menu ite|m font-n|
|00001d20| 75 6d 62 65 72 2d 73 74 | 72 69 6e 67 20 66 6f 6e |umber-st|ring fon|
|00001d30| 74 2d 6e 75 6d 62 65 72 | 20 68 20 66 6f 6e 74 2d |t-number| h font-|
|00001d40| 6e 61 6d 65 2d 70 72 65 | 66 65 72 65 6e 63 65 2d |name-pre|ference-|
|00001d50| 69 6e 64 65 78 20 6c 61 | 73 74 2d 66 6f 6e 74 2d |index la|st-font-|
|00001d60| 6e 61 6d 65 2d 6d 65 6e | 75 2d 63 68 65 63 6b 20 |name-men|u-check |
|00001d70| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 32 35 36 20 |make-str|ing 256 |
|00001d80| 30 20 47 65 74 49 74 65 | 6d 20 32 20 47 65 74 46 |0 GetIte|m 2 GetF|
|00001d90| 4e 75 6d 20 65 78 74 72 | 61 63 74 2d 69 6e 74 65 |Num extr|act-inte|
|00001da0| 72 6e 61 6c 20 73 68 6f | 72 74 20 4e 65 77 48 61 |rnal sho|rt NewHa|
|00001db0| 6e 64 6c 65 20 7a 65 72 | 6f 70 20 4d 65 6d 45 72 |ndle zer|op MemEr|
|00001dc0| 72 6f 72 20 48 4c 6f 63 | 6b 20 65 6e 63 6f 64 65 |ror HLoc|k encode|
|00001dd0| 2d 69 6e 74 65 72 6e 61 | 6c 20 64 65 72 65 66 20 |-interna|l deref |
|00001de0| 48 55 6e 6c 6f 63 6b 20 | 73 65 74 2d 70 72 65 66 |HUnlock |set-pref|
|00001df0| 65 72 65 6e 63 65 20 22 | 44 41 54 41 22 20 73 70 |erence "|DATA" sp|
|00001e00| 65 63 69 61 6c 2d 6d 65 | 6e 75 2d 66 6f 6e 74 2d |ecial-me|nu-font-|
|00001e10| 63 68 61 6e 67 65 20 2d | 31 20 43 68 65 63 6b 49 |change -|1 CheckI|
|00001e20| 74 65 6d 20 31 5d 20 31 | 39 29 29 0a 0a 28 64 65 |tem 1] 1|9))..(de|
|00001e30| 66 75 6e 20 64 6f 2d 6d | 65 6e 75 20 28 6d 65 6e |fun do-m|enu (men|
|00001e40| 75 20 69 74 65 6d 29 20 | 28 62 79 74 65 2d 63 6f |u item) |(byte-co|
|00001e50| 64 65 20 22 c9 09 21 18 | ca 08 0b 42 0c 5c 22 1a |de "..!.|...B.\".|
|00001e60| 0a 83 18 00 cb 0a 41 08 | 0b 23 82 34 00 08 0d 55 |......A.|.#.4...U|
|00001e70| 83 33 00 cc cd ce 5c 22 | 1e 06 cf 0d 0b 0e 06 23 |.3....\"|.......#|
|00001e80| 88 d0 0e 06 21 29 82 34 | 00 c8 2a 87 22 20 5b 6d |....!).4|..*." [m|
|00001e90| 65 6e 75 2d 68 61 6e 64 | 6c 65 20 6d 65 6e 75 20 |enu-hand|le menu |
|00001ea0| 63 61 6c 6c 62 61 63 6b | 20 69 74 65 6d 20 6d 61 |callback| item ma|
|00001eb0| 63 2d 6d 65 6e 75 2d 63 | 61 6c 6c 62 61 63 6b 2d |c-menu-c|allback-|
|00001ec0| 6c 69 73 74 20 61 70 70 | 6c 65 2d 6d 65 6e 75 20 |list app|le-menu |
|00001ed0| 73 20 74 20 6e 69 6c 20 | 47 65 74 4d 48 61 6e 64 |s t nil |GetMHand|
|00001ee0| 6c 65 20 61 73 73 6f 63 | 20 66 75 6e 63 61 6c 6c |le assoc| funcall|
|00001ef0| 20 6d 61 6b 65 2d 73 74 | 72 69 6e 67 20 32 35 36 | make-st|ring 256|
|00001f00| 20 30 20 47 65 74 49 74 | 65 6d 20 4f 70 65 6e 44 | 0 GetIt|em OpenD|
|00001f10| 65 73 6b 41 63 63 5d 20 | 38 29 29 0a 0a 28 64 65 |eskAcc] |8))..(de|
|00001f20| 66 75 6e 20 62 75 66 66 | 65 72 2d 6c 69 73 74 2d |fun buff|er-list-|
|00001f30| 66 6f 72 2d 62 75 66 66 | 65 72 73 2d 6d 65 6e 75 |for-buff|ers-menu|
|00001f40| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00001f50| 22 c0 c1 c2 c3 20 5c 22 | c4 5c 22 87 22 20 5b 73 |".... \"|.\"." [s|
|00001f60| 6f 72 74 20 6d 61 70 63 | 61 72 20 28 6c 61 6d 62 |ort mapc|ar (lamb|
|00001f70| 64 61 20 28 78 29 20 28 | 62 79 74 65 2d 63 6f 64 |da (x) (|byte-cod|
|00001f80| 65 20 22 08 c1 08 21 42 | 87 22 20 5b 78 20 62 75 |e "...!B|." [x bu|
|00001f90| 66 66 65 72 2d 6e 61 6d | 65 5d 20 33 29 29 20 62 |ffer-nam|e] 3)) b|
|00001fa0| 75 66 66 65 72 2d 6c 69 | 73 74 20 28 6c 61 6d 62 |uffer-li|st (lamb|
|00001fb0| 64 61 20 28 78 20 79 29 | 20 28 62 79 74 65 2d 63 |da (x y)| (byte-c|
|00001fc0| 6f 64 65 20 22 c2 c3 08 | 41 21 c3 09 41 21 5c 22 |ode "...|A!..A!\"|
|00001fd0| 87 22 20 5b 78 20 79 20 | 73 74 72 69 6e 67 3c 20 |." [x y |string< |
|00001fe0| 75 70 63 61 73 65 5d 20 | 35 29 29 5d 20 35 29 29 |upcase] |5))] 5))|
|00001ff0| 0a 0a 28 64 65 66 75 6e | 20 63 6c 61 73 73 69 66 |..(defun| classif|
|00002000| 79 2d 62 75 66 66 65 72 | 2d 6c 69 73 74 20 28 62 |y-buffer|-list (b|
|00002010| 75 66 66 65 72 2d 6c 69 | 73 74 29 20 28 62 79 74 |uffer-li|st) (byt|
|00002020| 65 2d 63 6f 64 65 20 22 | 08 3f 83 0c 00 c1 c1 c1 |e-code "|.?......|
|00002030| 45 82 6d 00 c6 08 41 21 | 08 40 41 c7 c8 4f 1b 1a |E.m...A!|.@A..O..|
|00002040| 08 40 40 71 88 c9 ca 0b | 5c 22 83 28 00 0a 82 6c |.@@q....|\".(...l|
|00002050| 00 c9 0c cb 5c 22 83 3f | 00 c7 0a 38 08 40 c8 0a |....\".?|...8.@..|
|00002060| 38 42 cc 0a 38 45 82 6c | 00 c9 cd 0b 5c 22 85 4c |8B..8E.l|....\".L|
|00002070| 00 ce 08 40 40 21 3f 83 | 5f 00 08 40 c7 0a 38 42 |...@@!?.|_..@..8B|
|00002080| c8 0a 38 cc 0a 38 45 82 | 6c 00 c7 0a 38 c8 0a 38 |..8..8E.|l...8..8|
|00002090| 08 40 cc 0a 38 42 45 2a | 87 22 20 5b 62 75 66 66 |.@..8BE*|." [buff|
|000020a0| 65 72 2d 6c 69 73 74 20 | 6e 69 6c 20 63 64 72 2d |er-list |nil cdr-|
|000020b0| 72 65 73 75 6c 74 20 66 | 69 72 73 74 2d 63 68 61 |result f|irst-cha|
|000020c0| 72 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 74 20 63 |r major-|mode t c|
|000020d0| 6c 61 73 73 69 66 79 2d | 62 75 66 66 65 72 2d 6c |lassify-|buffer-l|
|000020e0| 69 73 74 20 30 20 31 20 | 65 71 75 61 6c 20 22 20 |ist 0 1 |equal " |
|000020f0| 22 20 64 69 72 65 64 2d | 6d 6f 64 65 20 32 20 22 |" dired-|mode 2 "|
|00002100| 2a 22 20 62 75 66 66 65 | 72 2d 66 69 6c 65 2d 6e |*" buffe|r-file-n|
|00002110| 61 6d 65 5d 20 31 30 29 | 29 0a 0a 28 64 65 66 75 |ame] 10)|)..(defu|
|00002120| 6e 20 61 70 70 65 6e 64 | 2d 62 75 66 66 65 72 2d |n append|-buffer-|
|00002130| 6d 65 6e 75 20 28 62 75 | 66 66 65 72 2d 6c 69 73 |menu (bu|ffer-lis|
|00002140| 74 20 69 20 63 68 65 63 | 6b 2d 6d 6f 64 69 66 69 |t i chec|k-modifi|
|00002150| 65 64 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ed) (byt|e-code "|
|00002160| 08 3f 83 09 00 09 82 35 | 00 08 40 40 08 40 41 1b |.?.....5|..@@.@A.|
|00002170| 1a c6 0c c7 c8 23 88 c9 | 0c 09 0b 23 88 0d 85 24 |.....#..|...#...$|
|00002180| 00 ca 0a 21 85 2c 00 cb | 0c 09 cc 23 2a 88 cd 08 |...!.,..|...#*...|
|00002190| 41 09 54 0d 23 87 22 20 | 5b 62 75 66 66 65 72 2d |A.T.#." |[buffer-|
|000021a0| 6c 69 73 74 20 69 20 62 | 75 66 66 65 72 20 6e 61 |list i b|uffer na|
|000021b0| 6d 65 20 62 75 66 66 65 | 72 73 2d 6d 65 6e 75 20 |me buffe|rs-menu |
|000021c0| 63 68 65 63 6b 2d 6d 6f | 64 69 66 69 65 64 20 41 |check-mo|dified A|
|000021d0| 70 70 65 6e 64 4d 65 6e | 75 20 22 20 22 20 64 6f |ppendMen|u " " do|
|000021e0| 2d 62 75 66 66 65 72 73 | 2d 6d 65 6e 75 2d 69 74 |-buffers|-menu-it|
|000021f0| 65 6d 20 53 65 74 49 74 | 65 6d 20 62 75 66 66 65 |em SetIt|em buffe|
|00002200| 72 2d 6d 6f 64 69 66 69 | 65 64 2d 70 20 53 65 74 |r-modifi|ed-p Set|
|00002210| 49 74 65 6d 4d 61 72 6b | 20 32 31 35 20 61 70 70 |ItemMark| 215 app|
|00002220| 65 6e 64 2d 62 75 66 66 | 65 72 2d 6d 65 6e 75 5d |end-buff|er-menu]|
|00002230| 20 38 29 29 0a 0a 28 64 | 65 66 75 6e 20 66 69 78 | 8))..(d|efun fix|
|00002240| 75 70 2d 62 75 66 66 65 | 72 73 2d 6d 65 6e 75 20 |up-buffe|rs-menu |
|00002250| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00002260| cd 09 21 18 08 ce 56 85 | 17 00 cf 09 d0 5c 22 88 |..!...V.|.....\".|
|00002270| 08 53 89 10 88 82 04 00 | 29 88 0b 1a c4 89 13 88 |.S......|).......|
|00002280| 0a 85 3c 00 0a 40 40 40 | 09 3d 3f 85 33 00 0a 40 |..<..@@@|.=?.3..@|
|00002290| 0b 42 89 13 88 0a 41 89 | 12 88 82 1f 00 29 88 70 |.B....A.|.....).p|
|000022a0| 1d c4 1e 06 d1 20 1e 07 | d2 0e 07 21 1e 08 ce 0e |..... ..|...!....|
|000022b0| 08 38 1e 09 d0 0e 08 38 | 1e 0a d3 0e 08 38 1e 0b |.8.....8|.....8..|
|000022c0| d4 0e 09 d0 c4 23 89 16 | 06 88 0e 09 85 70 00 0e |.....#..|.....p..|
|000022d0| 0a 85 7f 00 d5 09 d6 c4 | 23 88 0e 06 54 89 16 06 |........|#...T...|
|000022e0| 88 d4 0e 0a 0e 06 c4 23 | 89 16 06 88 0e 09 86 92 |.......#|........|
|000022f0| 00 0e 0a 85 97 00 0e 0b | 85 a6 00 d5 09 d6 c4 23 |........|.......#|
|00002300| 88 0e 06 54 89 16 06 88 | d4 0e 0b 0e 06 cc 23 88 |...T....|......#.|
|00002310| 0d 71 2e 07 87 22 20 5b | 6e 20 62 75 66 66 65 72 |.q..." [|n buffer|
|00002320| 73 2d 6d 65 6e 75 20 78 | 20 6d 61 63 2d 6d 65 6e |s-menu x| mac-men|
|00002330| 75 2d 63 61 6c 6c 62 61 | 63 6b 2d 6c 69 73 74 20 |u-callba|ck-list |
|00002340| 6e 69 6c 20 6f 6c 64 2d | 62 75 66 66 65 72 20 6e |nil old-|buffer n|
|00002350| 65 78 74 2d 69 74 65 6d | 20 62 75 66 66 65 72 2d |ext-item| buffer-|
|00002360| 6c 69 73 74 20 63 6c 61 | 73 73 69 66 69 65 64 2d |list cla|ssified-|
|00002370| 62 75 66 66 65 72 73 20 | 74 65 6d 70 2d 62 75 66 |buffers |temp-buf|
|00002380| 66 65 72 73 20 64 69 72 | 65 64 2d 62 75 66 66 65 |fers dir|ed-buffe|
|00002390| 72 73 20 6f 74 68 65 72 | 2d 62 75 66 66 65 72 73 |rs other|-buffers|
|000023a0| 20 74 20 43 6f 75 6e 74 | 4d 49 74 65 6d 73 20 30 | t Count|MItems 0|
|000023b0| 20 44 65 6c 4d 65 6e 75 | 49 74 65 6d 20 31 20 62 | DelMenu|Item 1 b|
|000023c0| 75 66 66 65 72 2d 6c 69 | 73 74 2d 66 6f 72 2d 62 |uffer-li|st-for-b|
|000023d0| 75 66 66 65 72 73 2d 6d | 65 6e 75 20 63 6c 61 73 |uffers-m|enu clas|
|000023e0| 73 69 66 79 2d 62 75 66 | 66 65 72 2d 6c 69 73 74 |sify-buf|fer-list|
|000023f0| 20 32 20 61 70 70 65 6e | 64 2d 62 75 66 66 65 72 | 2 appen|d-buffer|
|00002400| 2d 6d 65 6e 75 20 41 70 | 70 65 6e 64 4d 65 6e 75 |-menu Ap|pendMenu|
|00002410| 20 22 28 2d 22 5d 20 31 | 32 29 29 0a 0a 28 64 65 | "(-"] 1|2))..(de|
|00002420| 66 75 6e 20 64 6f 2d 62 | 75 66 66 65 72 73 2d 6d |fun do-b|uffers-m|
|00002430| 65 6e 75 2d 69 74 65 6d | 20 28 6d 65 6e 75 20 69 |enu-item| (menu i|
|00002440| 74 65 6d 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |tem) (by|te-code |
|00002450| 22 c3 c4 c5 5c 22 18 c6 | 09 0a 08 23 88 c7 c8 08 |"...\"..|...#....|
|00002460| 21 21 29 87 22 20 5b 73 | 20 62 75 66 66 65 72 73 |!!)." [s| buffers|
|00002470| 2d 6d 65 6e 75 20 69 74 | 65 6d 20 6d 61 6b 65 2d |-menu it|em make-|
|00002480| 73 74 72 69 6e 67 20 32 | 35 36 20 30 20 47 65 74 |string 2|56 0 Get|
|00002490| 49 74 65 6d 20 73 77 69 | 74 63 68 2d 74 6f 2d 62 |Item swi|tch-to-b|
|000024a0| 75 66 66 65 72 20 50 74 | 6f 43 73 74 72 5d 20 35 |uffer Pt|oCstr] 5|
|000024b0| 29 29 0a 0a 28 64 65 66 | 76 61 72 20 4d 65 6e 75 |))..(def|var Menu|
|000024c0| 53 65 6c 65 63 74 2d 62 | 65 66 6f 72 65 2d 68 6f |Select-b|efore-ho|
|000024d0| 6f 6b 73 20 28 6c 69 73 | 74 20 28 66 75 6e 63 74 |oks (lis|t (funct|
|000024e0| 69 6f 6e 20 66 69 78 75 | 70 2d 62 75 66 66 65 72 |ion fixu|p-buffer|
|000024f0| 73 2d 6d 65 6e 75 29 29 | 29 0a 0a 28 64 65 66 75 |s-menu))|)..(defu|
|00002500| 6e 20 64 6f 2d 4d 65 6e | 75 53 65 6c 65 63 74 2d |n do-Men|uSelect-|
|00002510| 62 65 66 6f 72 65 2d 68 | 6f 6f 6b 73 20 6e 69 6c |before-h|ooks nil|
|00002520| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 4b | (byte-c|ode "..K|
|00002530| 08 5c 22 87 22 20 5b 4d | 65 6e 75 53 65 6c 65 63 |.\"." [M|enuSelec|
|00002540| 74 2d 62 65 66 6f 72 65 | 2d 68 6f 6f 6b 73 20 6d |t-before|-hooks m|
|00002550| 61 70 63 61 72 20 66 75 | 6e 63 61 6c 6c 5d 20 34 |apcar fu|ncall] 4|
|00002560| 29 29 0a 0a 28 64 65 66 | 75 6e 20 61 6c 65 72 74 |))..(def|un alert|
|00002570| 2d 66 69 6c 74 65 72 20 | 28 64 20 65 20 69 29 20 |-filter |(d e i) |
|00002580| 28 62 79 74 65 2d 63 6f | 64 65 20 22 ca cb 09 c0 |(byte-co|de "....|
|00002590| 23 18 08 0a 55 83 8a 00 | cc ca cb 09 cd 23 0c 5c |#...U...|.....#.\|
|000025a0| 22 ca cb 09 c5 23 1d 1b | 0b ce cf 21 55 86 26 00 |"....#..|...!U.&.|
|000025b0| 0b d0 55 83 3b 00 d1 0e | 06 d2 d3 d4 24 88 d5 0e |..U.;...|....$...|
|000025c0| 07 d4 5c 22 88 d4 82 86 | 00 0b ce d6 21 55 85 4b |..\"....|....!U.K|
|000025d0| 00 d7 cc 0d 0e 08 5c 22 | 21 3f 83 60 00 d1 0e 06 |......\"|!?.`....|
|000025e0| d2 d3 d8 24 88 d5 0e 07 | d8 5c 22 88 d4 82 86 00 |...$....|.\".....|
|000025f0| 0b ce d9 21 55 85 70 00 | d7 cc 0d 0e 08 5c 22 21 |...!U.p.|.....\"!|
|00002600| 3f 83 85 00 d1 0e 06 d2 | d3 d0 24 88 d5 0e 07 d0 |?.......|..$.....|
|00002610| 5c 22 88 d4 82 86 00 d2 | 2a 82 8b 00 d2 29 87 22 |\"......|*....)."|
|00002620| 20 5b 77 68 61 74 20 65 | 20 6b 65 79 44 6f 77 6e | [what e| keyDown|
|00002630| 20 63 20 63 68 61 72 43 | 6f 64 65 4d 61 73 6b 20 | c charC|odeMask |
|00002640| 6d 6f 64 69 66 69 65 72 | 73 20 69 20 64 20 63 6d |modifier|s i d cm|
|00002650| 64 4b 65 79 20 74 20 63 | 3a 73 6c 6f 74 72 65 66 |dKey t c|:slotref|
|00002660| 20 45 76 65 6e 74 52 65 | 63 6f 72 64 20 6c 6f 67 | EventRe|cord log|
|00002670| 61 6e 64 20 6d 65 73 73 | 61 67 65 20 73 74 72 69 |and mess|age stri|
|00002680| 6e 67 2d 74 6f 2d 63 68 | 61 72 20 22 0d 22 20 33 |ng-to-ch|ar "." 3|
|00002690| 20 65 6e 63 6f 64 65 2d | 69 6e 74 65 72 6e 61 6c | encode-|internal|
|000026a0| 20 30 20 73 68 6f 72 74 | 20 31 20 62 6c 69 6e 6b | 0 short| 1 blink|
|000026b0| 20 22 2e 22 20 7a 65 72 | 6f 70 20 32 20 22 64 22 | "." zer|op 2 "d"|
|000026c0| 5d 20 32 30 29 29 0a 0a | 28 64 65 66 76 61 72 20 |] 20))..|(defvar |
|000026d0| 6d 65 6e 75 2d 69 6e 73 | 74 61 6c 6c 2d 68 6f 6f |menu-ins|tall-hoo|
|000026e0| 6b 73 20 6e 69 6c 29 0a | 0a 28 6d 61 70 63 61 72 |ks nil).|.(mapcar|
|000026f0| 20 28 71 75 6f 74 65 20 | 65 76 61 6c 29 20 6d 65 | (quote |eval) me|
|00002700| 6e 75 2d 69 6e 73 74 61 | 6c 6c 2d 68 6f 6f 6b 73 |nu-insta|ll-hooks|
|00002710| 29 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |).......|........|
|00002720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002780| 00 00 01 00 00 00 01 0a | 00 00 00 0a 00 00 00 32 |........|.......2|
|00002790| 65 20 69 73 20 70 61 72 | 74 20 6f 66 20 61 20 4d |e is par|t of a M|
|000027a0| 61 63 69 6e 74 6f 73 68 | 20 70 6f 72 74 20 6f 66 |acintosh| port of|
|000027b0| 10 6d 65 6e 75 2d 69 6e | 73 74 61 6c 6c 2e 65 6c |.menu-in|stall.el|
|000027c0| 63 6e 02 00 00 00 64 45 | 4c 43 45 4d 41 43 01 00 |cn....dE|LCEMAC..|
|000027d0| 00 00 64 45 4c 43 45 4d | 41 43 01 00 02 70 00 80 |..dELCEM|AC...p..|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027f0| 00 00 a9 83 4b 0c 00 00 | 26 92 00 00 01 3c 6c 2c |....K...|&....<l,|
|00002800| 0d 3b 3b 3b 20 62 75 74 | 20 57 49 54 48 4f 55 54 |.;;; but| WITHOUT|
|00002810| 20 41 4e 59 20 57 41 52 | 52 41 4e 54 59 3b 20 77 | ANY WAR|RANTY; w|
|00002820| 69 74 68 6f 75 74 20 65 | 76 65 6e 20 74 68 65 20 |ithout e|ven the |
|00002830| 69 6d 70 6c 69 65 64 20 | 77 61 72 72 61 6e 74 79 |implied |warranty|
|00002840| 20 6f 66 0d 3b 3b 3b 20 | 4d 45 52 43 48 41 4e 54 | of.;;; |MERCHANT|
|00002850| 41 42 49 4c 49 54 59 20 | 6f 72 20 46 49 54 4e 45 |ABILITY |or FITNE|
|00002860| 53 53 20 46 4f 52 20 41 | 20 50 41 52 54 49 43 55 |SS FOR A| PARTICU|
|00002870| 4c 41 52 20 50 55 52 50 | 4f 53 45 2e 20 20 53 65 |LAR PURP|OSE.  Se|
|00002880| 00 00 00 06 05 45 6d 61 | 63 73 00 00 01 00 00 00 |.....Ema|cs......|
|00002890| 01 0a 00 00 00 0a 00 00 | 00 32 00 52 68 34 05 e2 |........|.2.Rh4..|
|000028a0| 00 00 00 1c 00 32 00 00 | 53 54 52 20 00 00 00 0a |.....2..|STR ....|
|000028b0| bf f4 ff ff 00 00 00 00 | 00 58 ad dc 00 00 00 00 |........|.X......|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+